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PREFACE 


Readers unfamiliar with assemblers in general and meta-assemblers in particular may find 
a small amount of background information helpful. During the relatively short history of - 
computers, ‘computer languages have evolved from machine languages directly interpreted 


-. by the computer to symbolic languages-more meaningful to the programmer but requiring 


_conversion to the equivalent machine language before execution of a program. The proces- 
sor that converts the symbolic language is one of two types, an assembler or a compiler. 


Of the two languages, the assembler language most closely resembles the machine lariguage. 


It is in this category that we find the 3300/3500 Meta-Assembler (META) although the Meta- 
Assembler offers features usually found only in more sophisticated compilers. 


Early assemblers generated one instruction of machine language code from each symbolic 
source language instruction. Relocation brought a new dimension to symbolic input and, as 
assembler output format. began to diverge to meet the needs of the relocatable loaders, the 
role of the assembler increased. At first, however, the ratio of input statements to output 
instructions was still one-to-one. Then someone questioned this ratio. Why not change the 
assembler so that a set of code could be called by a single statement? The answer came in 
the form of pseudo instructions and macro instructions. Macros offer considerable para- 
meterization of code blocks. These instructions are directed more at the assembler than 
at the machine for which the output is generated. They opened the door for further com- 
munications between the programmer and the assembler. But, for a time, conventional 
-assemblers made little use of this promising capability. Assembly essentially remained a 
farily straightforward conversion of source statements to one or more lines of machine 
language code. In some assemblers, the programmer could direct the processor to con- 
ditionally skip statements or change the format and content'of the output listing —— ‘but not | 
" of the code being generated. 


Today, the meta-assembler frees the assembler from its dependence on a machine-oriented 
input language yet still offers all the features of the conventional assembler. : 
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INTRODUCTION 


The 3300/3500 Meta-Assembler/MASTER provides users with a 
versatile, extensive language for directing the generation of object code. 
The assembler executes on a CONTROL DATA® 3300 Computer System 
or CONTROL DATA® 3500 Computer System under the supervision of 
the 3300/3500 MASTER Multiprogramming Executive Operating System. 


Meta-Assembler (META) allows the programmer to select a 3300/3500 
relocatable binary output format acceptable for loading and.execution 
under MASTER or as a byte stream. When he chooses to generate a 
byte stream he is not restricted to a 24-bit object word and can use the 
Meta-Assembler to generate output for execution on some other comput- 
er. Thus, a meta-assembler language.is the ideal language in which to 
code compilers and assemblers or to produce code for an alternate com- 


puter system, either real or simulated. 


Source statements, called directives, are oriented toward control of the 
assembler itself and control the meta-assembler much the same as 
machine language instructions control the computer. 


The source program, which consists primarily of directives, can also 
include definitions of and references to procedures and functions. The 
definitions are groups of source statements that the assembler interprets 
each time the procedure or function is referenced. A reference toa 
procedure definition, because it appears in the command field of a state- 
ment, can be likened to a macro call; a reference to a function, because 
it can be an element in an expression, can be likened to a FORTRAN 
function reference. There are significant differences, however, and it 
is better to forget about macros when working with META. 


Procedures and functions provide extensive parameterization of source 
statements. For example, 3300/3500 Meta-Assembler/MASTER includes 
standard procedures for the 3300/3500 mnemonic language instructions. 


A source statement, consisting of a mnemonic instruction and parameters, . 


calls one of these procedures. The assembler interprets the procedure 
which generates the equivalent 3300/3500 relocatable binary object code. 
Often used or standard procedures definitions can be placed in the li- 
brary. 
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META is a self-extending translator. Definition of procedures provides 
a convenient means for the programmer to expand the META source lan- 
guage’or even define a new language jetta the syntax of the Meta- 
Assembler). 


For META, the ratio of lines of input to lines of output code is irrelevant. 
If conditions warrant, a reference to a procedure may produce no code 
at all. META generates code only when directed to by the programmer. 


META allows the user to define and assign symbols to addresses, to 
single values, or to sets (lists) of data. An entire set may be referred 
to by a symbol; each element of a set may be referred to by adding one 
or more subscripts to the symbol. 


META recognizes as operands simple and complex expressions containing 
any of a set of eighteen operators. Elements of expressions can be sym- 
bols, or constants expressed as octal or decimal integers, real (floating- 
point) values or as BCD or ASCII characters according to convenience. 


A unique method of symbol definition allows the value of an expression to 
be used as a symbol. An operand of a source statement can also be an 
attribute of an expression, such as its size or type (character, octal, 
decimal, etc.). 


The Meta-Assembler language allows simple, brief notation as well as 
complex expressions involving nested procedures, functions, and sets. 


ME TA executes under control of the 3300/3500 MASTER Multiprogram- 
ming Executive Operating System. 


The requirements for executing META on the 3300 or 3500 are the mini- 
mum required for the MASTER multiprogramming system. 


META is called from the MASTER system library by a META task name 
card. Parameters on the card define files used during the assembler 
run, such as the file containing source statements and the files to re- 
ceive the listable output, the load-and-go output, and the punchable out- 
put. The programmer may optionally request that META use files other 
than the standard job files (INP, OUT, PUN) and the load-and-go file 
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(LGO) but when he does, the programmer is responsible for allocation of _ 
the files and for printing or punching any output. All standard job files ~ 
are released at the end of the job or after processing by the MASTER 
postprocessor. 


The MASTER executive allocates channels as needed and performs all 
input/output required during the assembly. 


The Meta-Assembler source deck can be on the standard input card 
reader or on some file, such as a magnetic tape file, specified by the 
programmer. If itis on the card reader, the MASTER input preprocessor 
transfers the deck from the standard input card reader onto a mass stor- 
age file (INP). The programmer has the option of bypassing this transfer 
by placing a DIRECT card in front of his deck. 


META interprets the source deck statement-by-statement from the file 
specified. 


META produces printer output containing a listing of each source state- 
ment. List control directives provide the programmer with the option of 
obtaining a detailed listing as well. Errors detected by the assembler 
are noted on the listing. This printer output for the Meta-Assembler 


run is normally accumulated on a mass storage file and automatically 


printed by a MASTER postprocessor when the run is finished. The 
programmer may request a simultaneous print through a parameter of a 
MASTER DIRECT card or may request that the output be placed on some 
other file (for which printing is not automatic) through a parameter of 
the META card. 


Similarly, MASTER accumulates data on a punch file for automatic post- 


* job punching. The programmer may request direct punching or may 


direct punch output to some other file for which punching is not auto- 
matic. 


Upon programmer request, META allocates the LGO file to receive 
relocatable binary output acceptable to the 3300/3500 MASTER relocatable 


MACHINE 
LANGUAGE 
INSTRUCTIONS 


loader. When the assembler has completely processed the source deck, 
the programmer may call for.loading and execution of the object program | 
from the load-and-go file. The MASTER loader links the newly assem- 
bled program to any previously assembled programs referred to by the 
new program. The programmer can designate whether or not the load- 
and-go file should be executed in spite of errors detected during assem- 
bly. 


If he desires, the programmer can request binary output in the form of 
a byte stream. This form of output is not acceptable to the MASTER 
relocatable loader and is usually intended for further conversion for 
loading on some other computer. 


META includes a set of procedures for interpreting mnemonics for the 
3300/3500 machine language instructions and generating equivalent code. 
While these mnemonics resemble the 3300/3500 COMPASS repertoire, 
differences in syntax and in notation used for operand fields and modifiers 
cause incompatibilities between the two languages. In addition, META 
does not recognize COMPASS macros, pseudo instructions, or numeric 
operation codes. To cite a difference, the representation of an octal 
number in the 3300 COMPASS language is a string of octal digits followed 
by the letter B. The representation of an octal number in the META 
language is the letter O followed by a string of octal digits enclosed in 
apostrophes. 
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A source program for the Meta-Assembler is a sequence of statements 
punched onto 80-column cards, each statement requiring one or more 
cards. Statements can be written as lines of code on a coding form. A 
statement begins at character position 1 and may continue through char- 
acter position 71 of a line. 


By inserting a semicolon in character position 72 of a line, a programmer 
notifies the assembler that the next line is a continuation of the statement. 
Information continues in column 2 of the next line. 


META does not examine information in character positions 73-80. Thus, 
these card columns can be used for card sequencing. 


The general form of a statement is: 


<—lJlabel —»| [|<—command-> operand <-comments 
—_—— —’ —_— ‘e 
two two two 
spaces: spaces spaces 


Each field terminates with two or more spaces. 
A statement label (usually optional) begins in the first or second charac- 
ter position of a line and consists of a symbol. 


The first nonblank character following the two spaces delimiting the 
label field begins the command field. This field, which is mandatory, 
contains a Meta-Assembler directive, a mnemonic language instruction, 
or a reference to a defined format or procedure. 


The first nonblank character following the two spaces delimiting the com- 
mand field begins either the operand field, which is usually required, or 
the comment field, which is optional. The contents of the operand field 
depend on the operand requirements of the command. 


An operand field contains one or more expressions, each consisting of 
one or more syntbols and elementary items joined by operators. For 
directives, the operand field provides infornfation required by the 
assembler to perform the designated operation. Operands of mnemonic 
instructions and procedures generally represent addresses, constant 
values, and evaluatable expressions. 


In addition to using the comment field, the user can indicate that all 
successive characters of a line are comments by beginning a field with 
an asterisk. 

Examples: 

The following line contains all four fields. 


lal PHA LDA LOC. ; LGAD A: REGIS TER Lt ¢ 
a —— Sem N. / . 


label command operand comments 


The following line has a blank label field and does not contain comments. 


— Sa 
command operand 


The following line is continued. 


column 
~ 712 


The following line contains a command and a comment. Meh cecr 


|. END. #cguMENTs ... % 
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The following line is a comment line. 


ln vars Ts A couwent.._§ 


Symbols play a vital role in an assembly language. The power, versatility, 
and flexibility of an assembler relate directly to its symbol handling 
capability. 


A symbol is 1-12 alphabetic characters or numbers. The first character 
must be alphabetic (A-Z); the symbol represents an address, an arbitrary 
value, or a list of values (a set). Symbols provide a programmer with a 
convenient means of referring to these program elements. 


Examples: 


JOE 
A3 
B7A5 


Each symbol used as a label for a source statement is assigned a value 

or a set of values by META. Assignment depends on whether the symbol 
is to be assigned a value representing a relocatable address (one that may - 
change when the program is relocated) or is to be assigned a value or 

set of values indicated by the operand field of the statement. | 


Symbol definition means that ME TA enters the symbol in a table where it 
maintains the value or set of values assigned to the symbol together with 
known attributes of the symbol. 


META permits the programmer to inquire about characteristics of the 
value, such as its size in words or bytes and its mode of representation 
(decimal, octal, character, etc.). These attributes can be referred to 
through a type of symbolic reference known as an attribute function. 
META arbitrarily assigns a value to each attribute of a symbol. For 
example, a symbol defining a set element that is six ASCII characters 
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has a mode attribute of 7 and a size attribute (expressed in characters) 
of 6. Attributes are discussed again in chapter 4. . 


Generally, META permits a reference to a symbol before it is defined 
(a forward reference) if the term referred to does not effect location — 
counting. A forward reference to a value subsequently redefined nor- 
mally yields the last value assigned. 


The special symbol $ as an address operand represents the current 
value of the location counter in use for the control section. 


‘META recognizes 16 levels of symbol definition (0-15). Symbols defined 
at a given level are available at the given level and all higher (or inner) 
levels and cannot be referenced at lower levels. 


Symbols made external to the program are defined at level zero. 


Symbols defined in the program but outside of procedures or functions are 
at level one. Symbols defined within procedures or functions (nested) 

are at level two or higher. For each nesting of the definition, one level 
is added to the symbol definition. foges =. : 


If a programmer chooses, he can denote by means of a dollar sign ($) 
immediately following the symbol in the label field that the symbol is to 
be defined at the next lower level. He can use multiple dollar signs to 
lower a symbol level by more than one, to a minimum of one level. 


An item in an expression that has a value itself rather than representing 
a value is a self-defining elementary item. META does not assign a 
value to an elementary item; it is able to interpret the character string 
comprising an elementary item without further information. For exam- 
ple, the decimal integer 23 has the value 23. An elementary item has a 
maximum precision of 48 bits. 


META recognizes three types of integer notation, three types of charac- 
ter notation, and a real (floating-point) notation for elementary items. 


60236000 


An elementary item can be used alone or can be combined with symbols, 
operators, and other elementary items to form an expression. | 
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{ INTEGER i 
3 NOTATION . ; The three types of notation for integers are decimal, octal, and BCD 
i decimal. | 
| Decimal A string of decimal digits. 
1 Example: 
: 429 
' Octal The letter O followed by a string of octal 
j digits enclosed in apostrophes. 
1 Example: 
} 7 O'2777' 
1 a BCD Decimal The letter D followed by a string of not more 
| & than eight decimal digits enclosed in apostro- 
§ phes. This notation provides for 6-bit BCD 
j arithmetic. For a negative value, a minus 
; sign is placed with the rightmost character. 
! Examples: 
-pt4g27" 
-D'123' 
CHARACTER a 
NOTATION The two types of BCD character notation indicate whether the BCD charac- 
ter string is to be stored as 6-bit characters right adjusted with the 
remainder of the field filled with zeros or whether the character string is 
stored left adjusted and the field filled with spaces (blanks). 
; . . A third type of character notation stores the character string in 8-bit 


ASCII rather than BCD code. ASCII characters are stored right adjusted. 
The remainder of the field is zero filled. 


Because single apostrophes are delimiters, two apostrophes represent a 
single apostrophe within the character string. The legal character set 
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for character strings is given in appendix A. Note that a space is a 
legal character. 


BCD 


The letter C followed by a string of not more 
Right Adjusted 


than eight BCD characters enclosed in apos- 


trophes, or simply a string of BCD characters 
enclosed in apostrophes. 


Examples: 
C'AB$5' . (4 characters: AB$5) 
"ANB (5 characters: A',B') 
BCD The letter L followed by a string of not more 
Left Adjusted than eight BCD characters enclosed in apos- 
trophes. 
Example: 
~ LIABC! 
‘+ ASCII 


The letter A followed by a string of not more 
than six ASCII characters enclosed in apos- 
trophes. 


Example: 


A'AB$5' 


REAL 


NOTATION A real or floating-point number is defined by the appearance of a decimal 


point somewhere in the value which optionally consists of an integer, a 


fraction, or an E followed by an exponent (scale factor). 


It can be in 
the range 10-398 to 19398, 


Examples: 


-35 (. 35) 
1.E+2 (100) 
1.14159E -3 (. 00114159) 
4.79 (4. 79) 


The value is converted to 3300/3500 48-bit internal floating-point for- 
mat. 
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An elementary item or a symbol can be used alone to form a simple 
expression or can be combined with operators to form complex expres- 
sions. Operations include addition, subtraction, multiplication, 
division, binary and decimal scaling, and relational and masking opera- 
tions. Appendix B summarizes the 18 operators recognized by META. 
Note that for some operations META recognizes both mnemonic and 
symbolic operators. 


Generally, a single space has no significance in a field and serves only 
to enhance the readability of an expression. However, when the opera- 
tor in an expression is mnemonic rather than a symbol, for example, 
EQ rather than =, META requires spaces as separators. 


Expressions can include references to set elements and functions. 


The programmer can form subexpressions by using parentheses in the 


normal role of arithmetic grouping. 


1 2 
The assembler evaluates expressions from left to right performing the 
operations with lower hierarchies first. It evaluates parenthetical 
expressions first, expanding them from the inside out. 


Examples of expressions: 


Al + 10 Indicates an address 10 words greater than 


-address Al. 
A*B Product of the values of A and B. 
(A<B)++(C<D) If both inequations are false, zero; otherwise 
one. 


Associated with each item in an expression is a mode that defines how 
the value is to be interpreted for an arithmetic operation. Thus, META 
discerns whether a value is an octal integer, a real or floating-point 


- value, a character string {BCD or ASCII), or a relocatable address. 


The mode determines whether the assembler will use integer, real, or 
decimal arithmetic when evaluating the expression. Normally, if all 
the values are not of the same mode, the assembler uses a value of zero 


’ for the expression and flags the error. The permitted mixing of octal 


integers and real or floating-point values represents an exception to 
this rule. 


A set is a list of one or more elements separated by commas. Each list 
element is an expression, a set name, or a subset (a set enclosed in 
brackets). A null expression is interpreted as a zero. 
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Examples: 


1.24, 4 A set of two elements. 


X+5, (1. 25, 4] A set of two elements, the first of which is an 
expression, the second of which is a set of 
two elements. ; 


X+5, B Pe _ A set of two elements, the first of which is an 
. expression, the second of which names a set. 
3, 2, l, A set of four elements, the fourth of which is 
zero. 


META includes directives that assign symbolic names to sets so that 
elements of sets or entire sets can be referred to symbolically. To 
refer to a defined set, the programmer simply writes the set name. If 
he wishes to refer to an element, he follows the name with a pair of 
brackets enclosing one or more expressions separated by commas. 
The subscript expressions represent the element's ordinal location in 
the set. From left to right, they represent the level of the element in 
a set containing subsets. 


Example: 
The symbol A is defined as the set 5,C, [9,[3,4]]. The set has three 


elements. The third element [9, [3, 4|] contains two elements, the 
second of which also contains two elements [3, 4]. 


Reference ~~ Element <2 Value: 

A All 5,C, [9, [3, 4}] 
A(1] First element 5 

of A 
A[2] Second element Cc 

of A . 
A[3] Third element 9, [3, 4] 

of A 

A(3,1]_ First element of 9 


subset of third 
element of A 


A [3,2] Second element of 3,4 
subset of third 
element of A 


A [3, 2, 1] First element of 3 
subset of second 
element of subset 
of third element of A 


60236000 


LITERALS 


60236000 


In the preceding example, if C is a set name for a set consisting of the 


list elements 7, 8, 6, elements of C could be referred to as follows: ~ oe 
Reference Element ~ Value 
A[2,1Jor c [1] _ First element of C t 
A[2,2] or C[2] Second element of C | 8 


A[2, 3] or c[3] Third element of C 6 


The Meta-Assembler maintains information about a set and its elements _ 


together with the symbol defining the set. The programmer can access 
this information for use by the assembler through attribute function ref- 


- erences. For example, the NUM attribute function supplies the number 


of elements in the set. 


A literal is an expression preceded by an equal sign. The assembler 
assigns'the value of the expression to a location in a literal table fol- 
lowing a control section as determined by a LIT directive. 


_ Examples: 
=G'70707070' 
‘=A+B-$ 
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DIRECTIVES 3 


A programmer using the Meta-Assembler directs the assembly of object 
code by using a set of nearly forty commands called directives. A 
directive controls the operation of the Meta-Assembler much the same 
“as a machine language instruction directs the computer. 


Through directives, a programmer can: 


e Define the word size for object code when assembling code for a 
machine other than the 3300 or 3500. 


e@ Define a symbol and assign a value or set of values to it for sub- 
sequent reference by the symbol. 


e Specify that a symbol referred to by the program being assembled 
. is defined external to it, perhaps by a program previously assem- 
bled or, conversely, that a symbol defined in the program being 

& assembled can be referred to by some other program. 


Ld 


] Q i e Conditionally repeat or skip source statements. 


e Assign up to 15 relocatable location control counters and one 
absolute control counter for the Meta-Assembler to use for 
address assignment. 


e Generate code to be loaded and executed on the object computer 
including the ability to subdivide each word to be generated into 
fields and assign values to the fields. 


e Identify a group of statements as being a procedure and assign it one 
or more names so that he can subsequently call the procedure by a 
name and pass it parameters. 


e Identify a group of statements as being a function, assign it one or 
more names, and.use a name as a value in an expression such that 
the value varies according to parameters of the function reference. 


e Control the format and content of the listing META produces during 
assembly. 


e Terminate assembly of a subprogram or group of subprograms. 


MACHINE 
DEFINITION : 
(UNIT) At the beginning of his source statements, the programmer can issue a 
directive that causes the assembler to generate words and bytes of a 
& correct size for some computer other than the 3300 or 3500. 
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Format: e . : 
label UNIT byte size, word size comments | : 
(optional) (optional) a 


Byte size defines the number of bits per byte; word size defines the 
number of bytes per word. 


‘ Example: — 


IN. 5 ee a 


The object computer word is a 36-bit word comprised of six 6-bit bytes. 


SYMBOL a 
DEFINITION The directives that assign or reassign values to symbols and sets are 
& EQU, RDEF, NSET, PROC, and FUNC. (PROC and FUNC are discussed 
later.) In most other directives a symbol in the label field is assigned 
an address value depending on the counter used for maintaining addresses 
for the program section. 


EQU 7 “ EQU directs META to assign the value and attributes of an expression 
in the operand field to a symbol in the label field. 


Format: 


symbol EQU _expression comments 
(optional) 


Example: 


ABLE. cou. BAKER + @......6, 
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RDEF directs META to assign the value and attributes of an expression 

in the operand field to a symbol or set element referred to in the label field. 
The directive can be the first definition of a symbol or it can be a re- 
definition of a symbol previously defined by an RDEF or an NSET. 


Format: 


symbol RDEF expression comments 
. : . _ (optional) 


Example: 


First definition; EASY = 2 


Redefinition; EASY = 3 


NSET directs META to assign the symbol in the label field as the set 
name of the list of expressions in the operand field. 


Format: 
symbol NSET set comments 
(optional) 
Examples: 
ET. 
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Two directives facilitate linkage between independently assembled programs. 
EXT notifies the assembler of symbols defined by some program external 

to the source program and referred to by the source program; ENTRY 
notifies the assembler of symbols that are defined by the source program 
and can be referred to by some program external to it. 


Format: 
label EXT symbol,,..., symbol, comments 
(optional) ENTRY (optional). 
Examples: 


Two directives conditionally repeat (RPT) or-skip (GOTO) source state-_ 
ments. 


A repeat directive (RPT) conditionally repeats source statements a spec- 
ified number of times. A zero or negative repetition count causes the 
source statements in the repeat range to be skipped. The repeat range 
begins with the statement immediately following RPT and ends with a 
statement specified by an operand of the RPT directive. If no end 
statement is specified, only the line following the RPT directive is 
repeated. The Meta-Assembler permits one RPT to lie within the 

range of another. RPT directives can be nested to a level of six. 


_. Format: 
count symbol RPT expression, line id comments 
(optional) (optional) 


The symbol in the label field is optional. If present, it is assigned the 
value of the repetition count. Its value is incremented with each repetition 
of the source statements. 
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GOTO 


LNID 


a 
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Examples: ; . 


Statements through statement labeled JOE are repeated 10 times. XYS has 
values 1, 2,...,10. 


ber ADB, Dh 
When A is less than or equal to B, the above repeat acts like a skip. 


A skip directive (GOTO) conditionally skips source statements. The 
GOTO directive uses the value of an expression in the operand field as 
an index to a list of line identifiers. For example, if the value of the 
expression is 3, the third line id identifies the next statement to be 
interpreted by the assembler. If the value of the expression is negative, 
zero, or greater than the number of entries in the list, assembly con- 
tinues at the next statement. 


Format: 


label © GOTO expression, line id), line ido, ..., line idg comments 
(optional) . (optional) 


Example: 


The LNID directive allows a programmer to define a dummy label for line 
identification purposes. The label has no value and no entry in the sym- 
bol table. It is especially useful for defining the range of an RPT since 
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the use of normal labels in such instances could result in duplicate 
symbol definitions. . 


Format: 


label LNID comments 
(optional) 


Example: 


LOCATION 
CONTROL ‘. META provides for one absolute and up to 15 relocatable location 
counters. A program can be assembled into one or more control sec- 
tions, each with its own counter. A symbol defined in a control sec- 
tion is not unique to it and can be referred to by any control section in 
the program. Location counters are maintained as byte counts. 
The programmer may refer to the current value of the location counter 
in use by using a dollar sign ($) as an operand. It achieves the same 
result as if a symbol were placed in the label field and used as an 
operand of the same statement. . 
8 Seven directives assign names and destinations to control sections and 
values to location counters. 
SECD LIT 
SECP RES 
SECA RESB 
4 ORG 
SECD The SECD directive specifies the control section name, chapter number, 
and maximum length for a labeled common block or a numbered common 
block. . 
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SECP 
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Format: 


label SECD symbol, chapter, size comments 
(optional) (all optional) (optional) 


Symbol defines the common block as labeled, numbered, or blank (zero). 
The chapter operand indicates whether the common block is to be located 
in the first or second chapter of a MASTER program task. The size 
operand provides an estimate of the size of the common block. | 


Examples: 


ee eer eee cee 


L, a 200-word labeled common block, is assigned to chapter two. A 
subsequent SECD directive referring to L would not require the chap- 
ter and size operands. 


| SECO. L 26.1, 100. i | + L414 


Numbered common block 25 occupies 100 words in chapter one. 


& 
The SECP directive specifies a control section name for a relocatable 
subprogram. 


Format: 
- label SECP symbol comments 
(optional) (optional) 
_ Example: 


L. secre. ergga i... A 


Subprogram is named PROGA. 


2h, 


SECA The SECA directive specifies a control section name for an absolute 
subprogram. Location of this subprogram is controlled by the absolute 
location counter. 


Format: , 


label SECA symbol comments 
(optional) (optional) 
Example: 


. 
* 


ORG The ORG directive tells the assembler to switch from the location counter 
in use to a location counter for some other control section or to change 
the counter in use to a specified value. . Be 


Format: 
label - ORG expression comments 


(optional) rt ea _.. (optional) 


af the expression contains a symbol naming a control section, ORG uses 
the value of the location counter for that section in place of the symbol. 


Example: 


Program control section ALPHA, 


Chapter one labeled common. 
block COMM. 


Resume program control section. 
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The LIT directive designates the location of literals. The assembler 

places literals in the control section most recently specified by a LIT 

directive, regardless of which control section contains the reference. 7 
In the absence of a LIT directive, the assembler appends the literals to 

the first program control section. META makes only one entry for 

identical literals in any given literal table. 


Satie Mate 


Format: . 74 
label LIT symbol comments 
(optional) ' (optional) 


Symbol names a previously defined control section after which the’lit- 
erals are to be placed. 


Example: 


Program control section named 
ABLE. 


Labeled common block BAKER. __ 
Literals to follow ABLE. ? : 


The value of 2 is the address of. 
the literal left-adjusted BCD 
value INP. 


stemenqmeee 


A programmer can change the contents of the current location counter 
by issuing an RES or RESB directive. 


Format: 
b | 
label RES expression comments 
(optional) RESB (optional) 


The value of the expression can be in words (RES) or bytes (RESB). 


The label is assigned the value of the current location counter before the 
addition. 
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DATA 
GENERATION 


GEN/ 
GEND/ 
GENB 
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Examples: 


Increment location counter 
by four words (16 bytes). 
Increment location counter 
by 16 more bytes. 


In the above example $ is word address and B is a byte address. Evalua- 
tion of the expression $ - B causes conversion of $ from a word address to 
a byte address. Thus, $= B +16 bytes, .and $ - B becomes (B + 16) - B, 
or 16 bytes. | 


Seven directives generate words or bytes of information to be loaded into 
the computer at execution time: 


GEN TEXT FORM 
GEND TEXTC 


GENB TEXTA 


The GEN, GEND,.and GENB directives generate one word, two words, or 
one byte, respectively, for each element in the operand field set. A set 
name may be used in lieu of a set. Subsets are not allowed. 


Format: 
label GEN 
(optional) GEND set comments 
GENB (optional) 


Examples: 


OY) mee re te een ey ee 


Generates-three object computer words. 
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Generates two object computer bytes. The value of an expression must not : 
exceed the number of bits per byte. : 


[ ae 2 7 C' ABCDEFGH’ ¢ 


Generates two 2-word (double-precision) elements. 


‘Y 


= 


Generates three object computer words. 


TEXT/ 

TEXTC/ 

TEXTA The TEXT, TEXTC, and TEXTA directives direct the assembler to 
generate words of BCD text, characters of BCD text, and words of 
ASCII text, respectively, from a character string delimited by apos-" 
trophes given in the operand field. sere 


Format: 
TEXT : 
label TEXTC ‘string' . comments | 
(optional) TEXTA (optional) 
Examples: 


Generates a string of 6-bit characters without padding the last word. 
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FORM 
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/ 


k TEXT... THIS. TS. TEXT,’ ¢ 


If the object computer uses 24-bit words, generates four words containing 
the internal BCD character string THIS IS TEXT left adjusted and the last 
word filled with blanks. 


word 1 word 2 word 3 word 4 


Generates a string of 8-bit characters and pads the last word with the 
internal representation of ASCII blanks. 


The FORM directive facilitates the generation of data by fields. It does 
not generate data. It defines a data format from left to right in terms 
of fields in one or more bytes. 


Format: 


symbol FORM expression, expressiony,..., expression, comments 
(optional) 


The symbol is the name by which the FORM is subsequently referenced. 
Each expression in the operand field defines a field size in bits. The 
total number of bits must be a discrete number of bytes. 


A programmer generates data specified by a FORM directive by placing 


the label of the FORM directive in the command field of a source state- 
ment and supplying a set of expressions corresponding to the fields ‘in 
the operand field. 


Format: 
label form label set comments 
(optional) (optional) 
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DEFINITION 
AND USE 
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Examples: 


Defines 4 fields in 4 
bytes (one word) as 
FORM named ITEM. 


Generates word using 
FORM named ITEM and 
values supplied as 
operands. 


Defines four 6-bit fields 


Generates 6-bit fields 
using FORM named 
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A procedure definition consists of lines of source statements beginning 
with a PROC directive and ending with an ENDS directive. The definition 
includes at least one NAME directive giving a symbol by which the pro- 
cedure is subsequently referenced. 


When the assembler encounters a procedure definition, it interprets only 
the NAME directives in the code body. It compresses and stores the 
remainder of the definition in an assembler table of definitions. 


Each time the assembler interprets a reference to the procedure, it 
temporarily defines as many as three sets and interprets the body of 
the procedure. Statements within the procedure refer to these sets as 


_ though they were defined by NSET directives. The sets allow extensive | 


parameterization and conditional generation of code by a procedure. 


fe The name of the first set is derived from the label field of the PROC 


directive. The elements are taken from the operand field of the NAME 
directive identified in the call. 


The names of the second and third sets are derived from the command field 
and operand field ef the PROC directive. The elements are supplied in 


the corresponding fields of the statement containing the procedure refer- 
ence. 
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A procedure can contain other procedures, or references to other 
procedures, nested to a level of 14. : 


Procedures can be stored on the system library or some other file for 
later retrieval by a LIBS directive. 

The Meta-Assembler includes a standard set of library procedures for the 
3300/3500 mnemonic machine instructions (appendix D). 


A PROC directive declares the beginning of a procedure and provides for 
the definition of three sets used in the procedure. 


Format: 
, Ssetname, PROC, setnameg setname3, expression comments 
_* (optional) (optional) (both optional) (optional) 


The set names are optional. The expression in the operand field of the 
PROC directive must be nonzero for a procedure containing a forward 
reference. It notifies the assembler that assembly of the procedure re- 
quires two passes. 


Example: 


X3300 names a set, the possible elements of which are in the operand 
fields of the NAME directives; PR names a set, the elements of which 


- are in the operand field of the procedure reference statement. 


a 


Each NAME directive in a procedure provides a name (procname) by 
which the procedure can be referenced and, optionally, supplies a NAME- 
dependent set of elements. The NAME directive acts as an entry point: 
only statements following it are interpreted when a procedure is refer- 
enced by the procname. 
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ENDS 


PROCEDURE 
REFERENCE 
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Format: | ee iS 
procname NAME set comments 
(optional) (optional) 
Example: 


£ 


Procedure name LDA assigns 
one-element set with value 20. 
to set named X3300. 


Procedure name STA assigns 


one-element set with value 40 
‘to set named X3300. 


The statement that terminates a procedure is ENDS. 


Format: 
label = ENDS | comments 
(optional) (optional) 


After defining a procedure, the programmer can refer to it by entering a 
procname in the command field of a source statement. The procname 
can be any of the procnames assigned by NAME directives in the def- 
inition. The reference optionally provides elements for two set names 


' in corresponding fields of the PROC directive. 


Format: 
label procname, set, seto comments 
(optional) (both optional) (optional) 


After interpretation of a procedure, the assembler interprets the state- 


ment following the statement containing the procedure reference. 
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Example: 


ISTA. - 


Form 


Procedure references: 
each passes PR set 


SLA DA. | AG, £3. : elements through 
y. PAR BP. operand field and picks 
aS up elements of NAME- 
- : dependent set X3300. 


passed elements to 
command field set X. 


eh Neither reference 


Code Generated: . 


403 |e) 
_ 23 1817 15 14 00 
ne 


X3300(1) PR(2) PR(1) 


a 
| 708 |es) | 
pre 


LIBS A programmer can retrieve predefined procedures from a library file or 
some other file by issuing a LIBS directive. The procedures are stored 
in the library file by the MASTER library generation program, GLIB. 
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FUNCTION 
DEFINITION 
AND USE 
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Format: | 


label LIBS L'dsi', symbol, ,..., symbol, comments 
(optional) . (optional) 7 


The symbols are procnames of procedures to be obtained from the 3300/ 
3500 MASTER file identified by its data set identifier, dsi. 


Example: 


Obtain procedure definitions named ALPHA, BETA, and GAMMA from the 
MASTER system library, *LIB. Note that if all three names are in the 
same definition, the assembler loads only one definition. - 


1 


Obtain PSI and OMICRON from file with MASTER data set identifier ABC. 


A function definition consists of lines of source statements beginning with 
a FUNC directive and ending with an ENDS directive. The definition in- « 
cludes at least one NAME directive, giving a symbol by which the function 
is subsequently referenced. 


When the assembler encounters a function definition, it interprets only the 
NAME directives in the code body. It compresses and stores the re- 
mainder of the definition in an assembler table of definitions. 


Each time the assembler interprets a reference to the function, it defines 
up to two sets, interprets the body of the function, and returns information 
to the statement containing the function reference. The sets allow exten- 
sive parameterization and conditional generation of code. 


The name of the first set is derived from the label field of the FUNC di- 
rective. The elements are taken from the operand field of the NAME 
directive identified in the reference. The name of the second set is de- 
rived from the operand field of the FUNC directive. The elements are 
supplied as parameters of the function reference enclosed in parentheses. 
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A function can contain other functions, or references to other functions, 
nested to a level of 14. 


The Meta-Assembler includes an intrinsic set of functions called attribu 
functions (chapter 4). 


After interpretation of a function, the assembler uses the information to 
complete evaluation of the expression containing the reference. 


® 


A FUNC directive declares the beginning of a function and provides for 
the definition of two sets used by the function. 


Format: 

». setname, FUNC setnameo comments 
(optional) (optional) (optional) 

Example: 


BITTEN ; BUNC Lid NUMB a ee J Lid 6 I 


. The function refers to sets named BITTEN ‘and NUMB.- 


Each NAME directive in a function provides a name (funcname) by which 
the function can be referenced and, optionally, supplies a NAME-dependent 
set of elements. Thé NAME directive acts as an entry point; only state- 
ments following it are interpreted when a function is referenced by the 
funcname. 


‘Format: 


funcname NAME set comments 
(optional) (optional) 
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ENDS 


FUNCTION 
REFERENCE 
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Example: 


Each name assigns a different one-element set to the set named BITTEN. 


% 


a 


The statement that terminates a function is ENDS. 


Format: 


label ENDS — expression comments 
(optional) (optional) 


The expression is either an expression that defines the function value or | 
a set that defines a set of values to be used in the calling statement. 


Example: 


Li ENPS |.) BTTTENLIaMumBecI2 So 


After defining a function, a programmer can refer to it by using a function 
name as a symbolic element in an expression. The function name can be 
any of the funcnames assigned by NAME directives in the definition. 
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Example: 


Function named X. 


Function named Y. 


Reference to function X; in- 
crements location counter by 7. 


Reference to function Y; in- 
crements location counter by 22. 


Note that elements for set B are passed as parameters of the function » 


reference. 

LISTING 

CONTROL Seven directives provide programmer control over the format and content 
of the assembler-generated listing. 

NOLIST/ 

LIST The NOLIST directive causes the assembler to discontinue generation of 


the output listing, beginning with the NOLIST directive, until it encounters 
a LIST directive. 


Format: 
label NOLIST comments 
(optional) LIST (optional) 
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EJECT 
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Example: 


The SPACING directive causes the assembler to use the specified 


spacing (single, double, or triple) until it encounters another SPACING 
directive. . 


Format: 


label SPACING expression comments 
(optional) (optional) 


The value of the expression can be one, two,- or three. 3 


Example: 


Double space listing. 


Single space listing. 


An EJECT directive causes the assembler to terminate listing on the 
current page and resume listing at the top of the following page. 
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Format: ’ 
label § EJECT comments 
(optional) (optional) 
TITLE The programmer can issue a TITLE directive to eject the current page 


and begin the listing on the following page with a line of text supplied in 
the directive. aa : ‘ 


Format: 
label TITLE "text' comments 
(optional) (optional) 


Text is a character string. 


Example: 


BRIEF The DETAIL directive causes the assembler to list all lines of generated 
code and procedure and function expansions in addition to normal list 
output until it interprets a BRIEF directive. A NOLIST directive takes 
precedence over a DETAIL directive. If no DETAIL directive is issued, 
the mode is BRIEF. 


Format: 


label | DETAIL comments 
(optional) BRIEF (optional) 


36 60236000 


ASSEMBLY 
TERMINATION 


END 


FINIS 
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| Example: 


Begin detailed listing. 
Produces. two tines of print. 


Begin brief listing. 
Produces one line of print. 


The programmer can independently assemble more than one subprogram 
during a Meta-Assembler run. Two directives indicate whether the 
assembler is to terminate Bee of-a subprogram or terminate as- 
sembly completely. 


The programmer issues an END directive at the end of each subprogram 
being assembled. The directive optionally specifies a symbolic location 
at which program execution is to begin. 


Format: 
label END symbol comments 
(optional) (optional) (optional) 


FINIS causes termination of the assembly process. The directive follows 
the END directive for the final subprogram. 


Format: 
label FINIS comments 
(optional) (optional) 
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ATTRIBUTE FUNCTIONS 


An attribute is an inherent characteristic of an expression symbol or set 
such as its size or arithmetic mode. Seven intrinsic functions defined 
by META provide the programmer with access to attributes which are 
returned as values. An attribute function call consists of the function — 
name, used as an element of an expression, followed by an argument | 
enclosed in parentheses. 


Ordinarily, a reference to an attribute function occurs in an operand 
field. 


The mode attribute function (MDE) returns the mode of the argument as 
a decimal integer value. 


Mode | Value 
No value . 07 
Integer value 1 
Real value 2 
BCD character string, right adjusted = 3 
BCD integer string 4 
BCD character string, left adjusted | 5 
ASCII character stance 7 
Word address _- 9 
Byte address 11 


Reference format: 


- MDE (expression) 
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SZE 


REL 
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Example: 


WI. GTP. MDECDELTA), B,C, D, 6, 6,6, H,,5) 


For an integer value, assembly continues at B; for a real value, assembly 
continues at C; etc. 


The size of a defined symbol value is accessible through the size attri- _ 
bute function (SZE). This function returns the number of bytes occupied 
by an address or an integer or real value, or it returns the number of . 

characters in a BCD or ASCII character string. 

Reference format: 


SZE (expression) 


Example: 


' Real value, 2 words (8 bytes). 
Reserve 8 bytes. 


The relocation attribute function (REL) returns the number of the loca- 
tion counter used by the indicated control section. 


Reference format: 
‘REL (expression) 


Example: 
bre cou. RELCALPHA).... A. 


The value assigned to CTR is a decimal integer designating the number 
of the location counter (0-15) used by control section ALPHA. 
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BYT 


WRD 
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The nbee of elements function (NUM) returns the number of elements 
in the named set as an octal integer. =" 


Reference format: 
NUM (setname) 
Example: 


The value assigned to SETSIZE is the number of elements in the set 
named BETA. 


The byte address function (BYT) returns the byte address of the 
argument expression. 


% 


« 


Reference format: 
BYT (expression) 


Example: 


A is assigned the current value of the location counter currently in use 
as a byte address plus one. 


The word address function (VRD) returns the word address of the argu- 
ment expression. A byte address that does not correspond to a word 
address is flagged as an error. 


Reference Format: 


WRD (expression) 
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Example: | . | ee ee: Yo 


If the current value of the location counter currently in use is a discrete 
number of words, the number of words is assigned to FF. Otherwise, 
an error results. . . | . 


The symbol attribute function (SYM) permits the value of the argument 
expression to be used as a symbol. The reference can occur in any field 
of a statement. : 


Reference format: 


SYM (expression) 


Examples: 


The value of Ais XYZ. The SYM reference to A causes XYZ to be 
interpreted as a symbol in the EQU statement. Thus the symbol XYZ is . 
assigned the value 10. 


Daw 7 oS 


’ The symbol AAAA is assigned a value of 1. 
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If the procedure is called by name CHAR, the statement labeled LAB 


uses GENB to generate bytes; if called by name WORD, the same state- 
ment generates words. 
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CHARACTER SET A 
| i 
E b 
| Type of : Printer Internal Card <7 
Character Graphic Code Octal Code t 
A 21. 12,1. i 
B 22 12,2 i 
c 23 12,3 i 
D 24 . 12,4 i 
E 25 12,5 - 
F 26 12,6 
G 27 12,7 
H 30 12,8 . } 
I 31 12,9 : 
; J 41 Tit , 
K 42 11,2 7 
L 43 11,3 
~ Alphabetic. < M 44 11, 4 
v . | iis 
O 46 14,6 
P 47 11,7 
Q 50 11,8 
R 51 11,9 
S 62 0,2 
t. 63. 0,3 
U 64 0,4 
V 65 0,5 
W 66 0,6 
X 67 0,7 
Y 70 0,8 
Z 71 0,9 
0 00 0 
1 01 1 
2 02 2 
3 03 3 
Numeric 4 04 _ 4 
5 05 5 
6 06 6 
7 07 7 
8 10 8 
9. 11 9 


60236000 , A-1 


Type of Printer 


Character Graphic 
Blank blank 

+ 

x 

/ 

< 

> 

( 

) 

% 
Special $ 

t 

< 

‘> 

4 

{ 

2 

>. 

Vv 

A 


plus 

minus 

times 

divide 

equals 

less than 
greater than 
period 

comma 

left parenthesis 
right parenthesis 
percent 

dollar 
apostrophe 

less or equal 
greater or equal 
left bracket 
right bracket 
decimal exponent 
binary exponent 


. not 


semicolon 
right arrow 
identity 
colon 

or 

and 


.. Internal . 
Code Octal 


Card 
Code 


space 
12 

11 

11, 4,8 
0,1 
3,8 
12,0 . 
11,7,8 
12,3,8 
0,3,8 
-0;,4,8 
12,4,8 
6, 8 
11,3,8 
4,8 
5,8 
12, 5,8 
7,8 

0, 8,2 
11,5,8 
11, 6,8 
12, 6,8 
12,7,8 
0,5,8 
0,6,8 
2,8 
11,0 
0,7,8 
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OPERATORS | 8B 


= Unary equalst (literal) 


Examples: 


Alternate 
Symbol Mnemonic ; Meaning 

+ Unary plus t 

- : - Unary minus? 

+ | DS Decimal scaling 

{ BS _ Binary scaling 

* | _ Arithmetic product 

/ | : Arithmetic quotient 

+ . : : Arithmetic addition 

& - Arithmetic subtraction 

< LT Less than (compare) © 

= . . EQ Equal (compare) 
= NE Not equal (compare) 
> . GT | - - Greater than (compare) — 
aS LE | Less than or equal (compare) 
' 2 | GE Greater than or equal (compare) 
! a AND Logical product (AND) | 
| -- XOR | Logical difference (exclusive OR) 
rs OR Logical addition (inclusive OR) 


A>B has value 1 if the value of A is greater than the value of B; otherwise it has value 0. 
Zero is greater than -0. 

A GT B is an alternate representation of the above. A single blank separates 'A' and "GT" 
and 'B". 


* . + A unary operator has only one operand. It is most commonly used as the sign of a simple 
¥ expression. 
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O.:.* 5. SAMPLE PROGRAM | 7 C 


This sample program defines procedures for 3600 mnemonic instructions LDA, NOP, RTJ, and 
UJP and illustrates how a program can be coded using the 3600 mnemonics, Because assembly is 
for a machine other than the 3300 or 3500, output must be written on a permanent file. In this 
example, a magnetic tape file is used. 


77 
88 END OF FILE 


META SOURCE DECK 


OPEN MAGNETIC TAPE 
UNIT FOR OUTPUT 


$X%DEF(U, , SF,607,A205, 3600, , BD) 


SCHEDULE JOB 
REQUIREMENTS 


$SCHED, CORE =30, SCR=5,607=! 


$J0B, JR.41L45_ 
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Mnemonic instructions can be used in a program that does not contain a UNIT directive. 


A 3300/3500 META mnemonic instruction is a procedure reference in which the label field 
optionally contains a symbolic address, the command field contains a mnemonic instruction and 
modifiers, and the operand field contains operands that depend on the mnemonic. 


Abbreviated descriptions of the mnemonic language given here subscribe to the following conven- 


Indicates that the contents of one (or two consecutive) register, operand, or ad- 
dress field is replaced by the contents of another (or two consecutive) register, 
operand, or address field. For example, (M)——»(A) means "replace contents of 
A register with contents of M operand field." 


Indicates the logical sum (AND) 
Indicates a logical OR | 
Meaning | 


24-bit A register — 


- Index register designator 1 to 3. 


Index register, defined by p> 


Index register flag, M = m+(B,,) for these instructions only 


Index register flag; if B. = lor 3, R=r+ (B}); if B. = 2, R= r+ (B’); if 
B,. =0, R=r 


Index register flag; if B, = 1 or 3, S= s+ (B); if B, = 2, S=s+ (B2); if 
Bg =0,S=s 


00-77, BCD code of search character 
8-bit channel mask . | 

48 (52)-bit E register 

Lower half of 48-bit E register (bits 23-00) 
Upper half of 48-bit E register (bits 47-24). 


Increment or decrement, 0 to 7 


vet 


lamer wert gamer on 
Tai care en eras hala eae 
pce eae See ra Lay ES date 


6 eT 


3 


y 


Modifiers 


EQ 
GE 


Meaning 
Shift count 
Field length of block, 0-177, 
Number of characters in field R 
Number of characters in field S 
15-bit word address, first operand or jump address 
Actual operand or jump address as modified; M = m+ (Bb) 
Same as aa second operand address | | 
15 (or 17)-bit P register 
24-bit Q register 
17-bit character address 
Actual character address as modified; R = r+ cB?) 
Same as r, second operand addveas 
Same as R, second operand address; S = s+ (B>) 
6-bit address in register file 
Scan character 
Page index file address 
Caunisek code or interrupt aaa 
15-bit operand 

Meaning 

Conversion 
Backward read or write 


Evaluate address expression modulo gl?_4 
Delimiting character . 

Equal 

Greater than or equal 

Half assembly or disassembly 


Indirect addressing 
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Modifiers 
INT 
N 
NC 
NE 


Command 
Field 


ACI 


ADA, I 
ADAQ, I 
ADM 


AEU 
AIA 


AIS 


ANA 
ANA,S 
ANI 
ANI 
ANQ 
ANQ, S 
AOS 
APF 
AQA 
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Meaning 


Interrupt on completion 


No assembly or disassembly 


No conversion 


Not equal 


S omitted, no sign extension 


y,b 


. Instruction modifier denoting sign.extension: § present, sign extended; 


Operation 


(Ago-o2) —>channel index 


register 
(A)+(M) —> (A) 
(A, Q)+(M, M+1) —>(A, Q) 


Add field R to field S—» 
field S 


(A) —> (Ey) 
(A)+(BP) —» (a), Sign of — - 


~ (BD) is extended prior to addition 


(Agoo-92)-—> instruction 
State register 


yA(A) —»>(A) 

yA(A) —»(A), sign of y extended 
No operation 
yA(Bb) —» (Bby 

yA(Q) —> (Q) 

yA(Q) —> (Q), sign of y extended 


(Ago-92) —> operand state 
register 


(Ajo_11) —> page file 
(A)+(Q) —» (A) 


Command 
Field 


~AQE 
AQJ,EQ 


AQJ, GE 
AQJ, LT 
AQI. NE 
ASE 
ASE ,S 
ASG 
ASG,S 


ATD 


ATD, de 


AZJ,EQ 
AZJ, GE 
AZJ, LT 
AZJ, NE 


CIA 


Operation 


If (A) = (Q), RNI m, otherwise, 
RNI P+1 


If (A) > (Q) RNI m, otherwise, 
RNI P+1 


If (A) < (Q), RNIm, otherwise, 
RNI P+1 


If (A) # (Q), RNI m, otherwise, 


-RNI P+1 


If y = (Ago-14): RNI P+2, otherwise, 
RNI P+1 


If y = (Agop-14), RNI P+2, otherwise, 
RNI P+1, sign of y is extended 


If (A) > y, RNI P+2, otherwise, 
RNI P+1 


If (A) = y, RNI P+2, otherwise, 
RNI P+1, sign of y is extended 


Translate American Standard 
Code field M—»BCD character 
field S 


‘Translate American Standard ° 


Code field M—> BCD character 
field S with delimiting character 


. possibility 


If (A) = 0, RNI m, otherwise, 
RNI P+1 


If (A)> 0, RNI m, otherwise, 
RNI P+1 


If (A) < 0, RNI m, otherwise, 
RNI P+1 


If (A) # 0, RNI m, otherwise, 
RNI P+1 


0 —» (A), then channel index 
register —» (AgQ-02) 
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So 2 ll Sa 


Command 


Field 


 CILO 


CINS 


CLCA 


CMP 


CMP, dc 


CON. 


COPY 


CPR, I 


CTI 


CTO. 
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Operand 


Field 


cm 


ch 


cm 


ch 


Operation 
ee 


Lockout external interrupt on 
masked channels, cm, until 
channel is not busy 


Interrupt mask and internal 


| Status—» (A) 


Clear the specified channel, 
but. not external equipment 


Compare field R to field S, 
exit upon encountering « 
characters 


Compare field R to field C, 

exit upon encountering + 
characters; delimiting character 
possibility 


If channel ch is busy, reject 
instruction, RNI P+1. If 
channel ch is not busy, send 
12-bit connect code (x) on 
channel ch with connect enable, 
RNI P+2 


External status code from I/O 
channel ch —>(Ago_3), 
(interrupt mask 

register) —» (Ay9_99), RNI P+1 - 


(M) > (A), RNI P+1 (A) and 
(Q) > (M), RNI P+2 (Q) are 
(A) > (M) > (Q), RNI P+3/ unchanged 
Set console Beginning char- 
typewriter acter address 

input must be present 

Set console in location 23 
typewriter of register file 
output and last char- 


acter +1 must be 
present in loca- 
tion 33 of the 
file 


Command 


Field 


_ CVBD 
CVDB 
DINT 


DTA 


DTA, de 


DVA,I 
DVAQ,I 
EAQ 


ECHA 
- ECHA,S 


EDIT 


EINT 


ELQ 
ENA 


ENA,S 


ENI 


Operand 


Field 


m, Bn, n, Bn 


Yr, Br, Qe 
m,Bm 


r, By, 2y, 
m,Bm 


r, Br fr, 
m, Bm 


m,b 


Operation 


Convert binary field M to 
BCD— field N 


Convert BCD field R to 
binary— > field M 


Disable interrupt control 


Translate BCD field Rto . 
American Standard Code —» 
field M 


Translate BCD field R to 
American Standard Code —» 
field M; delimiting character 
possibility 

(A, Q)/(M) —» (A), remainder 
—> (Q) 

(A, Q, E)/(M, M+1) —— (A, Q), 
remainder with sign extended 
—(E) _ 


(Ey, Ey) —> (A, Q) 
0 = (A) , then r—> (Ago-1 6) 


sign extended 


Field R-—»>field S with COBOL 
type of editing specified by 
picture previously stored in 
field S 


Interrupt control enabled; allows 
one more instruction to be 
executed before interrupt 


(Ey) —> (Q) 


O—» (A), then y—»(Ago_14),. 
sign extended 


No operation 
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Command 


Field 


‘ENT 
ENQ 


- ENQ,S 


EUA 
EXS 


FAD,I 


FDV,I 


FMU, I 


FRMT 


_FSB,I 
HLT 
- JAI 


IAPR_ 
IJD 


IJD 
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Operand 


Field 


y,b 
y 
y 


x, ch 


m,b 


Operation e 
0—»(B>), then y—»(B>) 
0—»>(Q), then y —> (Qo0-14) 


0—»> (Q), then y —>(Qo9_14), 
Sign extended 


(Ey) —>(A) 


Sense external status; if 1 bifs 
occur on status lines in any of 
the same positions as 1 bits in 
the mask, RNI P+1; if no com- 
parison, RNI P+2 


Floating-point addition of 
(M, M+1) to (A, Q) —> (A, Q) 


Floating-point division of 
(A, Q) by (M, M+1) —»(A, Q); 
remainder with sign extended 
—> (E) 


Floating-point multiplication 
of (A, Q) and (M, M+1) 
—> (A, Q) 


Move field R—> field S; 
replace leading zeros with 
blanks; insert a comma after 
every three characters moved; 
insert a decimal point in third 
lowest order position in S field 


Floating-point subtraction of 
(M,M+1) from (A, Q) —> (A, Q) 


Unconditional stop, RNI m 
upon restarting 


(A)+(B>) —» (Bb), sign of BP is 
extended prior to addition 


Interrupt associated processor 
No operation 


If (Bb) = 0, RNI P+1; if (Bb) ¥ 0, 
(B>) - 1—» (BP), RNIm 


Command 
Field 


IJI 
IJI 


INA 


'-INA,S 


INAC, INT 


INAW, INT 


INCL 


INI 
INI 


INPC, INT, 
B,H 


ISG 


ISI 


JAA 
JMP, HI 


JMIP, LOW 


ch 


ch 


y,b 


y,b 


Operation 
No operation 


If (BP) - 0, RNI P+1; if (Bh) ¥ 0, 
(Bb) + 1 —» (Bb), RNI m 


Increase (A) by y 


Increase (A) by y, sign of y is 
extended 


(A) is cleared and a 6-bit char- 
acter is transferred from a 
peripheral device to the lower 
6 bits of A 


(A) is cleared and a 12- or 24-bit 
word is read from a peripheral 
device into the lower 12 bits or 
all of A (word size depends on I/O 
channel) 


Interrupt faults defined by x are 
cleared 


No operation 


Increase (Bb) by y, Signs of 
and. BP extended 


A 6- or 12-bit character is read 


from a peripheral device and 
stored in memory at a given 
location 4 


If (Bb) > y, RNI P+2, otherwise, 
RNI P+1 


If (B>) =y, clear BP and RNI P+2; 
if (B>) ¢ y, (BY) + 1—» (By, 
RNI P+1 . 
Last executed jump address —»>- 
(Ago-14) 
Jump if BDP condition register 

> 0or+ 


Jump if BDP condition reg- 
ister > Oor- 


60236000 


ainsi cen 2 pelle 


gprs 


Sr te SHE 


Dla Ee 


Command 
Field 


JMP, ZRO 


LACH 


LBR 


LCA, I 
LCAQ,I 
LDA, I 
LDAQ,I 
LDI,I 
LDL, I 
LDQ, I 
LPA,I 
LQCH 
MEQ 


INPW, INT, 


B,N 


INQ 
INQ,S 


INS 
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Operand 
. Field 


m,b 


m,b 
m,b 
m,b 
r,2 


m,i 


ch,m,n 


xX, ch 


Operation 


Jump if BDP condition reg- 
ister = 0 


O—»(A), (R)——> (Ago-o 5) 


Load BDP conditions with the 
contents of m y Go “2 


(M} —» (A) 
(M)—»(A), WF} —»@) 
(M)—»(A) 
(M)—»(A), (M+1)—»(Q) 


(Mo9-14)—> (BP) 


(M) A (Q)—» (A) 

(M)—>-(Q) 

(M) A (A)—» (A) 

0—>(Q), (RJ (Qo9_5) 

(BL) - ji» (Bl); if (BI) negative, 


RNI P+1; if (B1) positive, test (A) 
= (Q) A (M); if true, RNI P+2, 


if false, repeat Sequence 


Word address is placed in. bits 
00-14; 12- or 24-bit words are 
read from a peripheral device 
and stored in memory 


Increase (Q) by y 


Increase (Q) by y, sign of y 
extended 


Sense internal status; if 1 bits 
occur on status lines in any of 
the same positions as 1 bits in 


the mask, RNI P+1; if no comparison, 


RNI P+2 


Command 
Field 


- INTS 


IOCL 


ISA 
ISD 


ISD 


ISE 

ISE 

ISG 
MOVE, INT 


MTH 


MUA, I 
MUAQ, 1° 
MVBF 


MVE 


MVE, de 


y,b 


Operation ; 
Sense for interrupt condition; 
if 1 bits occur simultaneously 
in interrupt lines and in the 


interrupt mask, RNI P+1; if not, 


RNI P+2 


Clears I/O channel or search/ 
move control as defined by bits 
00-07, 08, and 1l of x 


0 —» (A), instruction state 
register —> (App_02) 


If y= 0, RNI P+2; ifv #0, 
RNI P+l 


If (Bb) = y, clear BP and RNI P+2; 
if (BP yxy, (BP) - 1 


(B>), RNI P+1 


If y - 0, RNI P+2, otherwise, 
RNI P+1 


If y = (Bb), RNI P+2, otherwise, 
RNI P+1 


If y > 0, RNI P+2, otherwise, 
RNI P+1 . . 


Move 2 characters from r to s; 
0< 2 £12719 


(B2) - i—»(B2), if (B) negative, 
RNI P+1; if (B) positive, test 

(A) > Q) A (M); if true, RNI P+2; 
if false, repeat sequence 


(A) * (M) —> (Q, A) 
(A, Q) «(M, M+1)—» (A, Q, E) 


Move characters from field R 
—+»> field S: if field S > field 
R, blank fill 


Move characters from field 
R—» field S according to parameters 


Move characters from ficld R 


—»> field S: delimiting character 
possibility 
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Command 
Field 


MVZF 
MVZS 


MVZS, dc 


NOP 


OSA 


OTAC, INT 


OTAW, INT 


OUTC, INT, 


B,H 


OUTW, INT, 


B,N 
PAK 


PAUS 


PFA 


PRP 
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Operand 
Field 


r,B,,2,, 
8,Bg,.%s 


Yr, By fy, 
8,Bg.%5 


r, By, s, 
Bg, 2g 


ch 


ch 


ch,r,s 


Operation 


Move characters from field R 
— > field S; if field S > field R, 
zero fill 


Move characters from field R 
— > field S; suppress leading zeros 


Move characters from field R 
—»> field S; suppress leading 
zeros; delimiting character 
possibility 


No operation (COMPASS assembled 
NOP) 

0—» (A); operand state register 
—> (Ago-02) 


Character from (Agg_g5) is sent 
to peripheral device, (A) retained 


Transfers (Agg-11) or (Ag0-23); 
depending on type of I/O channel, 
to a peripheral device 


Storage words assembled into 
6- or 12-bit characters and sent 
to a peripheral device 


Transfer 12- or 24-bit words from 
storage to a peripheral device 


Convert and pack a 6-bit numeric 
BCD field R to a 4-bit numeric 
BCD field and store: the result in 
field M 


Sense busy lines; if 1 appears ona 
line corresponding to 1 bits in x, 
do not advance P; if P is inhibited 
for longer than 40 ms, read re- 
ject instruction from P+1; if no 
comparison, RNI P+2 


0—» (A), then page index file 
—> (Ago-11) 


Same as PAUS, except real-time 
clock cannot increment during 
the pause. 
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Command — . Operand i 
Field Field | Operation 

QEL . , . (Q)—> (Ey) 

QSE | y If y= (Qo09-14), RNI P+2, otherwise, 
RNI P+1 

QSE,S y . If y - (Q), RNI P+2, otherwise, 

| _ RNI P+1, sign of y is extended | 

QsG° | y If (Qo9-14) = Y, RNI P+2, other- 

wise, RNI P+1_ L 

QSG,S y If (Q)> y, RNI P+2, otherwise, 

RNI P+1, sign of y is extended 

RAD, I m,b (M)+(A) —> (M) . 

RCR a Subcondition register —» con- 
dition register 

RIS ye | Relocate to instruction state 

ROS * Relocate to operand state 

RTJ m (P)+1—> (moo_} 4)» RNI m+1 

SBA,I m,b : (A) - (M)—> (A) 

SBAQ,I_ | m,b | . (A,Q) - (M, M+1)—» (A, Q) | 

SBCD — 3 - Set BCD fault logic 

: & 

SBJP Transfer system from monitor 
State to program state when . 
next jump occurs . 

SBM a r, Br, &p, Subtract field R from field S 

SBR m Store BDP conditions in m 

SCA,IT _ m,b. Where (M) contains a 1 bit, com- 

a: plement the corresponding bit 

in (A) 

SCAN, LR, r, By, &p, 8c Scan field R from left to right, 

EQ,dce Stop on = condition; delimiting 


character possibility 
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Command 
Field 


SCAN, LR, 
NE, de 


- SCAN, RL, 


‘EQ, dc 


SCAN, RL, 
NE, dc 


SCAN, LR, EQ 


SCAN, LR, NE 


. SCAN, RL, EQ 


SCAN, RL, NE © 


SCAQ 


.SCHA,I 


SCIM,I 


SDL 


_ SEL 


SFPF 
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Operand 


Field 


r,B,, Res sc 


r, By, 2p, 8c 


r, By, 8p, sc. 


r, By &,.,8¢ 
r, By, 2, sc 


r, Br. fr, sc 


r,B,, 2.,8C 


k,b 


x,ch | 


Operation 


Scan field R from left to right, 
stop on ¥ condition; delimiting 
character possibility 


_ Scan field R from. right to left, 


stop on = condition; delimiting 
character possibility 


Scan field R from right to left, 
stop on # condition; delimiting 
character possibility 


Scan field R from left to right, 
stop on = condition 


Scan field R from left to right, 


stop on # condition 


Scan field R from right to left, 
stop on = condition 


Scan field R from right to left, 
stop on # condition 


Shift (A, Q) left end around until 


‘ upper 2 bits of A are unequal: 


residue K = k- shift count; 
ifb=1, 2, or 3, K—> (Bb); if 
b= 0, K is discarded 


Ogee 6) —> (Mo0-16) 


Selectively clear interrupt mask 
register for each 1 bit in x; 
corresponding bit in the mask 
register is set to 0 


Upon next LDA instruction: 
1. (M)—» (A) 
2. 77777777 —» (M) 


If channel ch is busy, read reject 


instruction from P+1; if not busy, 


send a 12-bit function code on 
channel ch with a function enable, 
RNI P+2 


Set floating-point fault logic 


D-13 
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Command Ope rand 


Field ee . Field Operation 
SHA k,b Shift (A); shift count K=k + (B») 


(signs of k and BP extended); if 

bit 23 of K=1, shift right; com- 
plement of lower 6 bits equals 
shift magnitude; if bit 23 of K=0, 
shift left; lower 6 bits equal shift - 
magnitude; left shifts end around; 
right shifts end off 


SHAQ ; k,b _ Shift (A, Q) as one register; shift 
Sma count K=k + (B>) (signs of k and . 

BP extended); if bit 23 of K=1, shift 

right and complement of lower 6 

bits equals shift magnitude; if bit 

23 of K = 0, shift left and lower 

6 bits equal shift magnitude; left 

shifts end around; right shifts 

end off 


SHQ | k,b | Shift (Q); shift count K=k + (B>) 
(signs of k and Bb extended); if 

bit 23 of K=1, shift right, com- 
plement of lower 6 bits equals 
shift magnitude; if bit 23 of K = 0, 
shift left, lower 6 bits equal shift 
magnitude; left shifts end around; 
right shifts-end off 


SJ1 m If SELECT JUMP 1 is set, jump 


to m 

SJ2 | m | If SELECT JUMP 2 is set, jump 
tom 

SJ3 | m | If SELECT JUMP 3 is set, jump 

. to m 

SJ4 m If SELECT JUMP 4 is set, jump 
. . to m 

+ $5 | Sm m If SELECT JUMP 5 is set, jump 
to m 

SJ6 . m If SELECT JUMP 6 is set, jump 
to m 

SLS Program stops if selective stop 

7 switch is on; upon restarting 
RNI P+1 
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Command 
Field 


SQCH 
SRA 


SRCE, INT 


SRCN, INT 
SSA,I 


SSH 


SSIM 


STA,I 
STAQ,I 
STI, I 
STQ,I 
SWA,I 
TAI 


TAM 


TIA 


TIM 
TMA 
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_ Operand 


Field 


v,b 


Operation 
(Qo9-05) —> (R) 


0—» (A); subcondition register 
—> (Ago_o2) : 


Search for equality of character 
¢ in list beginning at r until an 


equal character is found, or until 


character at s is reached: 
0<e S 6355 


Inequality search: same as SRCE 


Where (M) contains a 1 bit, set 


the corresponding bit in A to 1 


Test sign of (m), shift (m) left 

one place, end around and. replace 
in storage; negative Sign, RNI P+2, 
otherwise RNI P+1 


Selectively set interrupt mask 
register for each 1 bit in x; cor- 
responding bit in the mask. 
register is set to 1 


(A) —> (M) 

(A, Q)—> (M, M+1) 
(B>)—> (Moq_14) 
Q—s—m | 
0-14) —> Moo_14) 
(Ago_14) —> (Bb); becomes 


a no-operation instruction if 
b=0 


(A) —»(v) 


O——> (A), (BP) —> (Ang _1 4); 
ifb = 0, 0—»(A) 


(Bb) (Vo0-14) 
(v) —» (A) 


ae 


Command Operand — ; 
Field Field Operation 

TMAV Initiate memory request; if reply 
occurs within 5 usec, RNI P+2; 
if not RNI P+1; storage address 
is (Bb) with (operand state regis- 
ter) or zero appended © 

‘ 

TMI v,b (Voo-1 4) > B 

TMQ Vv (Vv) —> (Q) 

TQM v (Q) —> (v) 

TST r, Br, &> Test field R; -, 0, or + 

UCS Unconditional stop 

UIP, I m _ Unconditional jump to M 

UPAK . m, Bm£s Unpack 4-bit BCD field M 

Bg. . into 6-bit BCD field § 

XOA y | y V (A) —» (A) 

XOA,S . : y y V (A) —> (A), sign of y is extended . 

XOI y . No-operation 

XOI y.b y V (Bb) —» (Bb) 

X0Q y y V (Q)—>(Q) 

X0Q,S . s y y V(Q)—> (Q), sign of y extended 

ZADM r, By, 2p, Clear field S; field R — 

8,B,,2, field S, right justify 
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